home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconal1a / startfor.frm < prev    next >
Text File  |  1999-10-08  |  6KB  |  167 lines
  1. VERSION 4.00
  2. Begin VB.Form StartForm 
  3.    BackColor       =   &H00008050&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   4965
  7.    ClientLeft      =   1140
  8.    ClientTop       =   1515
  9.    ClientWidth     =   7650
  10.    FillColor       =   &H00008060&
  11.    Height          =   5370
  12.    Left            =   1080
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   331
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   510
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1170
  19.    Width           =   7770
  20.    Begin VB.Label Label5 
  21.       Alignment       =   2  'Center
  22.       BackStyle       =   0  'Transparent
  23.       Caption         =   "stephan.swertvaegher@planetinternet.be"
  24.       ForeColor       =   &H00FFFF80&
  25.       Height          =   285
  26.       Left            =   1980
  27.       TabIndex        =   4
  28.       Top             =   3600
  29.       Width           =   3615
  30.    End
  31.    Begin VB.Label Label4 
  32.       Alignment       =   2  'Center
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "Start"
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Times New Roman"
  37.          Size            =   36
  38.          Charset         =   0
  39.          Weight          =   700
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       ForeColor       =   &H00000080&
  45.       Height          =   825
  46.       Left            =   3075
  47.       TabIndex        =   3
  48.       Top             =   4005
  49.       Width           =   1725
  50.    End
  51.    Begin VB.Label Label3 
  52.       Alignment       =   2  'Center
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "by Swertvaegher Stephan"
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   13.5
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H0080FF80&
  65.       Height          =   420
  66.       Left            =   1980
  67.       TabIndex        =   2
  68.       Top             =   2115
  69.       Width           =   3660
  70.    End
  71.    Begin VB.Label Label2 
  72.       Alignment       =   2  'Center
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "Programmed 1999"
  75.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   13.5
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H0080FF80&
  85.       Height          =   420
  86.       Left            =   1980
  87.       TabIndex        =   1
  88.       Top             =   1800
  89.       Width           =   3660
  90.    End
  91.    Begin VB.Image Image2 
  92.       Height          =   3900
  93.       Left            =   135
  94.       Picture         =   "StartForm.frx":0000
  95.       Top             =   495
  96.       Width           =   1710
  97.    End
  98.    Begin VB.Label Label1 
  99.       Alignment       =   2  'Center
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "Icon-Album"
  102.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   18
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H0000FFFF&
  112.       Height          =   555
  113.       Left            =   2205
  114.       TabIndex        =   0
  115.       Top             =   900
  116.       Width           =   3165
  117.    End
  118.    Begin VB.Image Image1 
  119.       Height          =   3900
  120.       Left            =   5805
  121.       Picture         =   "StartForm.frx":20CF
  122.       Top             =   495
  123.       Width           =   1710
  124.    End
  125. End
  126. Attribute VB_Name = "StartForm"
  127. Attribute VB_Creatable = False
  128. Attribute VB_Exposed = False
  129. Private Sub Form_Load()
  130. StartForm.Move (Screen.Width - StartForm.Width) / 2, (Screen.Height - StartForm.Height) / 2
  131. Call ColForm(StartForm, 80, 128, 0, 50)
  132. IconBook.Show
  133. IconBook.Enabled = False
  134. End Sub
  135.  
  136. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  137. Label4.ForeColor = &H80&
  138. End Sub
  139.  
  140. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  141. Label4.ForeColor = &H80&
  142. End Sub
  143.  
  144. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  145. Label4.ForeColor = &H80&
  146. End Sub
  147.  
  148. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  149. Label4.ForeColor = &H80&
  150. End Sub
  151. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  152. Label4.ForeColor = &H80&
  153. End Sub
  154. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  155. Label4.ForeColor = &H80&
  156. End Sub
  157.  
  158. Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  159. StartForm.Hide
  160. IconBook.Show
  161. IconBook.Enabled = True
  162. End Sub
  163.  
  164. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  165. Label4.ForeColor = &H50FF&
  166. End Sub
  167.